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MODULE BUFFERS Carte Butter Manager’ 
or = *yv04-000' 


BEGIN 


' 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
:* ONLY IN we ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'e INCLUSION OF THE ABOVE COPYRIGHT WOTICE THIS SOFTWARE OR ANY OTHER 
:# COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- oe kite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONS 
:® SOFTWARE ON EQUIPMENT WHIC 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 
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‘ee 

i FACILITY 
i Backup/Restore 
i ABSTRACT: 


a module contains the routines that manage the 1/0 buffer 
poo 


i ENVIRONMENT : 
VAX/VMS User Mode 
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004 

Bneg i MODIFIED BY: 
50 v03-002 AC605S2 Andrew C. Goldstein 2-May-1983 13:38 
31 e B32 from BACKDEF require file 
3 v03-001 ACG0313 Andrew C. Goldstein, 12-Feb-1983 16:02 
33 Add routine subtitles 
2$ v02-003 MLJ0054 Martin L Jack. 22-Nov-1981 21:43 

005 Integrate GET_VM and FREE M jacket routines. 
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Martin L. Jack, 28-Aug-1981 17:27 


Initialize RWSV _HOLD LIST. 


Martin L. Jack, 25-Mar-1981 15:17 


Reorganize global storage. Clean up signals. 


' 

' 

' 

' 

v02-001 MLJ0010 
= 


LIBRARY | SYSSLIBRARY: STARLET"; 
REQUIRE *SRC$: COMMON? | 
REQUIRE "LIBS:BACKDEF; 


EXTERNAL LITERAL 
BACKUPS_ALLOCMEM; 


GSDEF INE(); 


! Define global common area 
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FFER Buffer Manager kes $1984 23:43:5 AX-11 Bliss-32 V4.0-742 P 4 
teat INIT BUFFERS = initialize the buffer pool ek tiae ts rats od ett Sta iret tt he 29? 123 
3 } } RWSV_HOLD_LISTC1] = RWSV_HOLD_LIST(O]; 

- % 189 ' Allocate a BCB and buffer of the regyested size, and Link them into 
ee 16 ! the free List. Repeat for the specified number. 

He Hee 

3 136 1695 COM_BUFF COUNT = .COUNT; 

3s 14 1909 DECR J FROM .COUNT TO 1 

3 6146 169 d° 

3; «6145 1998 BEGIN 

3 18 1 ET_ZERO_VM (BCB_LENGTH); 

; 4 1 ¥ BCB_STAT = ace IDLE; 

; 148 17 X(BCB"SIZEJ = .SIZE; 

> 149 17 ‘ INSGUE (.X, .FREE_LISTC1)); 

3 130 170 END; 

3 ©6151 1704 

3 13 1705 

> oe 1708 “ = .FREE_LISTCO); 

3; 154 170 DECR J FROM .COUNT TO 1 

3; 155 1708 DO 

3 128 1709 BEGIN 

3; «(15 1710 LOCAL 

3 138 Hay RETADR: VECTOR(2); 

; 160 1318 STATUS = SEXPREG(PAGCNT=(.S12ZE+511)/512, RETADR=RETADR); 

> (161 1714 IF NOT .STATUS THEN SIGNAL (BACKUPS$_ALLOCMEM, 0, .STATUS); 
$ 106 1715 X(BCB_BUFFER] = .RETADR(O); 

: 16 1716 x = .RCBCB_FLINK); 

3; 6164 1717 END; 

s 165 1718 

; 166 1719 END; ! End of routine INIT_BUFFERS 


\V04-000\ 
-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL _BASE : 


-TITLE BUFFERS Buffer Manager 
- IDENT 


J 0 
00000 FREE_LIST: 

BL x 
00008 INPUT _wAiT: : 
00010 REREAD_WAIT: " 
00018 OUTPUT_WAIT: 

-BLKB 8 
00020 JPI_UIC:.BLKB 4 
00024 JPITUSERNAME : “t 
00030 JPI_DATE: 

-BLKB 8 
00038 JPI_NODE_DESC: : 
00040 JPI_CURPRIV: 

-BLKB 8 


18-50-1984 5 AX=11_Blisg-32 v4.0-742 
reRaets ra tots od CY tg Mee CEL 
00048 SYI_VERSION: 


-BLKB 
004¢ SYI_SID:.BLKB 
0050 RWSV_HOLD_LIST: 


LK 
00058 RUSV_CRCIG: | 
00098 RWSV_AUTODIN: 
:BLKB 
000D8 RWSV_FILESET ID: 
-BLKB 8 
Q00EO RWSV_VOLUME_ID: 
-BLRB 12 
O00EC RWSV_VOL_NUMBER: 
OOOEE RWSV ~SEG_NUNBER: 
QOOFO RWSV_FILE NUMBER : 
000F4 RWSV_SAVE aUAL 
OOOF8 RWSV_SAVE_FAB: 
OOOFC RWSV_CHAN: 
BLK 
00100 ei canaes tS 
00104 RWSV_IN SEQ: | 
00108 RWSV_IN_SEQ,0: 
0010¢ RWSV_IN_XOR, SEQ: 
00110 RWSV_IN HOR RFA: 
00116 RWSV -LOOKAHEAD: 
00117 RWSV_ xORSiies 
00118 RWSV_IN GROUP _ $I 
0011¢ RWSV_IN ERRORS: 
0011€ RWSV_IN_KORUSE : 
00120 RWSV_IN_ORGERR: 
00128 RWSV_IN_VBN: | 
0012¢ RWSV_IN_VBN, 0: 
00130 RWSV_ALLOC: 
00134 RWSV_EOF: 
00138 RwSV_OUT “Sea: 


Se ee ee 
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0013¢ RWSV_OUT_VBN: 
00140 RSV OUT BLOCK. COUNT: 
00144 RWSV_OUT. ERRORS: 
00146 RWSV_SEQ" ERRORS: 
00148 RWSV_OUT’ GROUP_COUNT: 
00149 RWSV_PADBING: 


-BLKB 
Q0014C QUAL: _.BLKB 
O01BC COM_SSNAME: 


BLK 
001C4 COM_VALID TYPES: 
001C6 COM_FLAGS: 

~BLK 
001¢8 COM_PADDING: 
001¢9 COM_BUFF_COUNT: 
001CA COM_I_SETCOUNT: 

-BLKB 
001¢B COM_0_ SET COUNT: 
001CC COM_1_STRUCNAME : 
00108 COM_O_STRUCNAME : 
001E4 COM_O_BSROATE 
OO1EC ALT_SSNAME: 
0020¢ INPUT FUNC: » 
00200 INPUT_RTYPE : 
0020€ OUTPUT FUNC: 
0020F FAST STRUCLEV: 
00210 INPUT_BEG: 

~BLK 
00210 INPUT CHAN: | 
00214 INPUT FLAGS: 
00216 INPUT PADDING: 
00218 INPUT_FAB: 
0021 INPUT_NAR: 
00220 INPUT_BCB: 

~BLK 


= 
~m 


=_ or Or lc CUhAN FT OC Rw ll KON OU OF OOS 


wo 
™m Nm rH 


LKB 


~~ fF Fe WH BH SF OO | | = = 


ss sss steepness 


= l 


peers 
Bur rere 


—---——_-—--- 


Buffer 


INIT | BUFFERS = - initialize the buffer pool 


00224 
00228 
0022C 
00230 
00234 
00238 
00240 
00248 
00248 
00250 
00258 
00260 
00268 
0026C 
00270 
00290 
00290 
00290 
00294 
0029C 
002A4 
002A6 
002A8 
002A8 
002AC 
OO2AE 
00280 
00284 
00288 


18.55 5-1984 23:4 
12nee= 198s 99388: 


INPUT_QUAL : 
INPUT_BAD: ? 
INPUT pick’ 
INPUT MAIELOCK: 
INPUT_MEDIA_ ID: 
INPUT _NAMEDESC: 
INPUT _STATBLK: 
INPUT_HDR BEG: 
INPUT _CREDATE: 
INPUT _REVBATE: 
INPUT_EXPDATE : 
INPUT_BAKDATE : 
INPUT -F 1LEOUNER: 
INPUT _FILECHAR: 
INPUT -nEcaTIR: 
INPUT_HDR END: 
INPUT_END: 

INPUT “PROP LEST: 


INPUT_PLACEMENT : 


INPUT_VBN_LIST: 


~BLKB 
INPUT_PLACE LEN: 
INPUT_PADDING_2: 


output _pée: 
OUTPUT CaN: 
OUTPUT_FLAGS: 
OUTPUT “PADDING: 
OUTPUT Fi8: 
OUTPUT NAM: 
OUTPUT _BCB: 


éf 


Wn won naocaannann a 
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Foon 808 tr tt * BUFFERS’ initialize the buffer pool & 38 71984 7:63: 


§  YaNckup saeleurrens Bese eat 

| ‘BLKB 
0028¢ OUTPUT_QUAL: 

| 002¢0 OUTPUT BAD: 

| 002¢4 ouTPUT si gtk: 
002C8 OUTPUT MAXBLOCK: 

| o02ce output _pévecon: 

| 002D4 ouTPUT “ATBUE: 

| 00364 OUTPUT_END: 

00364 LIST ~rovi ites: 


on nr FR F RU 


— 
= 
= 


00368 LIST -rorSize 
0036C VERIFY_ FAB: 
00370 VERIFY_USE COUNT : 
00374 veRitY.eoare” 
00378 COMPARE_BCB: 
0037¢ FAST BUFFER: 
00380 FAST_BUFFER R SIZE: 
00384 FAST_RVN: 
00385 FAST PADDING: 
00386 DIR _veRLinit: 
00388 FAST_VOL “BEG: 
00388 FAST_IMAP SITE: 
0038C FAST_IMAP: 
00390 FAST_HOR OFFSET: 
00394 FAST_BOOT_LBN: 
00398 FAST_VOL*END® 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: 


heer ee © 6S Bm 6 &@ Boe & © Had & & C 


OO3A4 JOUR_EFBLK: 
-BL 


[ 
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BUFFER Buffer 18. $ep-1984 23:43:5 AX-11 Bliss-32 V4.0-74 P 

bitte INIT *ourrERe initialize the buffer pool 12-Sep-1984 1: 43: 23 BACKUP. SRC BUFFERS -BSoe1 ei 

| 

O03A8 JOUR_INBLK: 

BL 

| OO3AC JOUR FBT: 
OO3AE JOUR =INBYTE: | 
00380 JOUR STRUCT LEV: 
00382 JOUR_ =COUNT: | 
00383 JOUR REVERSE 
00384 JOUR. ENSiS ‘ 
00386 JOUR_PADDING: 

-BLKB 

00388 CHKPT_HIGH SP: 
0038C CHKPT_LOW SP: 
003CO0 CHKPT STACK: 
003C4 CHKPT_VARS: a 
003C8 CHKPT _stAtus: 


LKB 
003CC +4 mite “LKB 
QO3CC DIR-CHA 


wa KB 
003D0 DIR_NAM: .BLKB 
00304 DIR_DEV_DESC: 


00308 DIR_SEL “eine ’ 
OO3E0 DIR_SEL fir 
003E8 DIR “stutttY: 
O03E9 DIR_LEVELS: 
OO3EA DIR fais 
OO3EB DIR STATUS: 
OO3EC DIR_STRING: 


-—- = =~ wemor er or F FF RFNNH BB BH ND 


-BLK 320 
0052C DIR_STACK: 

-BLK 612 
ied DIR_SP: .BLKB 4 
0794 DIR-SEL eet ‘ 
0798 DIR -BLKB 0 
0798 DIR- ~SCANCIIT 36 


-BLK 
007BC INPUT_MTL: a 
007C0 OUTPUT_MIL: 


i —% 


pn 
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rivet INIT FFERS - initialize the buffer pool 122808= 1386 $9:83:25 EBACKUP-SRe BUFFERS 85201 rom 3 


4 


o- 


»BLK 
007C8 CURRENT_VCB: 
-BLKB 
007CC CURRENT_W Bs 
pen ae 00700 ACLFIB_DESCR: 
00708 ACL_F1B:.BLKB 
818 ACL_LENGTH: 
.BLKB 
0081¢ ACL BUFFER: | 
00820 CRYP_IN. CONTEXT: 
00824 CRYP_OU_CONTEXT: 
00828 CRYP_DA_CONTEXT: 
0082C CRYP_DATA ENCIV: 
00834 CRYP_DATA cope: 
00838 CRYP_DATA KEY: 
00840 CRYP_DATA IVs 
00848 CRYP_DATA_CKSM: 
-BLKB 


| 
-BLKB 
007¢4 CURRENT_ATL: 


= 


-* oomwort-owr ££ £+& ££ FF OO fF F&F £& 


-EXTRN BACKUPS_ALLOCMEM 
-EXTRN GET _ZERO_VM, SYSSEXPREG 


-PSECT CODE,NOWRT,2 


007C 00000 ENTRY INIT_BUFFERS, Save R2,R3,R4,R5,R6 : 1633) 
56 00000000" EF i 00002 HOVAB FREE-LIST, R6 ; | 
SE 08 C2 00009 SUBL 8, SP ; | 
66 66 9E 6900¢ MOVAB FREE_LIST, FREE_LIST > 1680 | 
04 Ab 66 9E O000F MOVAB FREE-LIST, FREE-LIST+4 > 1681 | 
08 A6 08 Ad 9E 90013 MOVAB INPUT WAIT, INPOT_WAIT ; 168¢ 
OC Ab 08 <A6 YE 0001 MOVAB INPUT_WAIT, INPUT WAIT+*4 : 168 
10  A6 19 Ad 9E 0 1 MOVAB REREAD_WAIT, REREAD WAIT > 1684 | 
14 Ab 10 Ab 9E VAB  REREAD“WAIT, REREADWAIT+4 > 1685 | 
18 A6 18 A6 9E 00 MOVAB OUTPUT“WAIT. OUTPUT-WAIT > 1686 | 
1C AG 18 Ad 9E 0002C v OUTPUT“WAIT, OUTPUT ~WAIT+4 > 1687 
50 a6 50 Ab gE 0031 MOVAB RuSv_HOLD_LisT. RWSV_HOLD_LIST > 1688. 
54 Ab 50 =A6 f 00 MOVAB RWSV_HOLD LIST, RWSV_HOLD_LIST+4 : 1689 | 
0109 6 04 Ac 90 00038 MOVB. COUNT, COM_BUFF_COUNT ; 1695 | 
53 04 AC 01 ¢1 90 1 ADDL3 #1, COUNT, ~J : 1696 
18 11 00 46 BRB 2$ ; 
8 DD 0 48 18: PUSHL #40 > 1699 
000000006 99 1 FB 4A CALLS #1, GET_ZERO_VM : 
9 p 0051 MOVL ; 
OA A2 94 00054 CLRB 3s: 10x) > 1700 
08 A2 08 AC BO 00057 MOVW SIZE, 8(Xx) : 1701 


F 8 
| BUFFER Buffer 15-Sep-1984 23:43:5 AX-11 Bliss-32 v4.0-742 P 11 
ithe ts INIT_BUF Frere’ - initialize the buffer pool 14- 3e0 18a aS 23 BACKUP. SRCJBUFFERS.B32;1 — (2) 
% 8B $3 0 05 INSQUE 7m gare _LIST#4 : 1702. 
E F 6 2$ SOBGTR : 1696 
6 D0 6 MOVL FsLIst, :1 06 
53 08 A 990001 FF BB. ADDL Hi size,” + 171 
53 00000200 8F C6 O006F DIVL : 
54 AC 1 C1 6 ADDL “touar, J ; 
C 11 00078 BRB 5° : 
E 7C 0007D 3$ CLRQ = = (SP) : 
08 AF 9F O007F PUSHAB RETADR : 
53 DD 00082 PUSHL R : 
000000006 99 ee CALLS #4, SYSSEXPREG : 
g D MOVL RO, STATUS : 
11 £ : BLBS STATUS, 4$ : 1714 
5 DD 0009 PUSHL STATUS : 
—E D4 0095 RL. =( SP ; | 
000000006 BF DD 009 PUSHL ACKUP$_ALLOCMEM : | 
000000006 0 03 F 900 CALLS LIBSSIGNAL : 
oC A 6 DO OO00A2 4$ MOVL RETADR, 12(Xx) : 1715) 
5 62 DO 0006 OVL x + 1716) 
D1 54 F5 O00A9 5$ SOBGTR J, $$ : 1707) 
04 OOOAC ET : 1719) 


; Routine Size: 173 bytes, Routine Base: CODE + 0000 


; 
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FO6L 600 WAIT - weit ter 1/0 completion on buffer 12-8 08- 1984 99:83:09 EBACKUP. SRe BUFFERS .B32;1 - (¥ 
; 168 17 9 1 ZSBTTL ‘WAIT = wait for 1/0 comptes ton on buffer’ 

F 198 1" ; GLOBAL ROUTINE WAIT (8CB) : NOVALUE = 

; in 17 5 1 t+ 

; \%¢ 1724 1! 

3 \?? \e 5 : : FUNCTIONAL DESCRIPTION: 

; 175 17 5 1! This routine waits for 1/0 completion on the specified 
: 176 1728 1! buffer control block. 

s 17 1729 1! 

; 178 1730 1 ! CALLING SEQUENCE: 

; #179 1731 1! WAIT (BCB) 

; 180 17 ; 1! 

; «6181 17 1 ! INPUT PARAMETERS: 

3 186 i 2 1 BCB: address of buffer control block to wait on 
3; «6184 17 $ 1 ! IMPLICIT INPUTS: 

; «#185 17 1! NONE 

; 186 1738 1! 

s 187 1739 1 =! OUTPUT PARAMETERS: 

3 138 1740 1! NONE 

; W 1741 1! 

; 190 Ares 1 ! IMPLICIT OUTPUTS: 

: «6191 1745 1! NONE 

3 195 1744 1! 

s 19 1745 1 =! ROUTINE VALUE: 

3 194 1746 1! NONE 

: «195 1747 1! 

; 196 1748 1°! SIDE EFFECTS: 

: 197 1749 1! NONE 

3; 198 1750 1! 

; #199 1751 1 f= 

: 200 1736 1 

3 $a) 175 BEGIN 

3 4 1754 

: 20 1755 MAP 

3; 204 1756 BCcB : REF BBLOCK; ! BCB arg 

; 205 1757 

: 206 1758 BIN 

3 207 1759 VALID_STATE = UPLIT BYTE (1*BCB_S_READ 

; 208 1760 +1*BCB_S_REREAD 

3; 209 1761 +1°BCB_S_ WRITE) 

3 1 1786 : BITVECTOR; 

: 1 1764 ' Check the buffer state - it must have I/O pending. 

: 21 1765 : 

: 214 1708 

: 215 176 IF .B8CBCBCB_STATE) peou 8 

: 216 1768 OR NOT .VALTD_STATEC.BCBLBCB_STATE)) 

; 4 1799 THEN BUG_CHECR (WAITIDLEBCB, ‘Attempted wait on idle buffer"); 
3 219 1771 : Clear the event flag, check the 1/0 status, and then wait if 1/0 
; 0 1778 ! is still pending. 

3 1 177 ! 

: $ 1774 

: 1775 WHILE TRUE 

3: 226 1776 dO 


F 
| 
| 
| 
| 
| 
| 


er Manager 
= wait for 1/0 completion on buffer 


GIN 
SEC : -BCBCBCB_ STATE); 
ae 10_STATUS)-NEQ 0 THEN EXITLOOP; 
suai RN =".BCBCBCB_STATE]); 
BCBCBCB_STATE) = BCB_S_DATA; 


: If a completion action routine is specified, call it. 
IF NOT .BCBCBCB_10_ STATUS) 


AND .BCBCBCB_FATL_ACT) NEQ 0 
THEN (.8CBCBCB_FATL_ACTJ) (.8CB); 


ee 4) 
> i > > i> pe pede pe ee ee ee ed 
COWOMMOOOOOOONNS —-—> 
CONAVEW—OOOn 1 


8 90 

9 91 IF “ecorece 10 sraruss 
40 3 AND .8CB(BCB_SOCC_ACT] NEQ 0 
° ? THEN (.BCBC(BTB_SUTC_ACTJ) (.8CB); 
4 3 END; ! End of routine 


16 OOOAD P.AAA: .BYTE 


VALID_STATE= 
~EXTRN 


~EXTRN 
000c 00000 - ENTRY 
52 04 ag D0 00002 MOVL 
08 OA A2 91 00006 CMPB 
09 i€ Bane BGEQU 
50 OA A2 9A 0000 MOVZBL 
0D EB AF 50 €0 0001 BBS 
000000006 a DD 00015 1$: PUSHL 
000000006 0 1 FB on8 CALLS 
18 - 9E 4 3 MOV 
E OA A2 QA 3 6 38: MOVZBL 
000000006 00 01 F O2A CALLS 
H B5 00031 TSTW 
D 12 00033 NEQ 
43 OA A2 9A 000355 MOVZBL 
000000006 0 01 4 0039 CALLS 
fe 1 4, BRB 
OA A2 9 42 4$: MOVB 
OE 63 €8 0004 BLBS 
24 A ° 4 TSTL 
98 4C BEQL 
24 +«B2 01 PS ¢ CALS 
0B 63 E ° 4 33 BLBC 
20 A ? 76 TSTL 
9 A BEQL 
20 82 81 Pe gone CALLS 
04 itt 7%: ET 


15-Sep-1984 $3:33:? rr Blis oorrtns anes 


4 BACKUP. SRC JBUFFERS.832;1 


WAIT 


22 

P. AAA 
BACKUP$_WAITIDLEBCB 
SYSSCLREF, SYSSWAITFR 
WAIT, gave R2,R3 
BCB, R 
19(R2), 48 


#1, LIBSSTOP 
24 R2), R 
O(R2). =<(SP) 
#1, SYSSCLREF 
(R$) 


4$ 
10(R2), -(SP) 
#1, SYSSWAITFR 


nt 


8 
FFER Buffer Manager bese -1984 23:43:5 AX-11 Bliss-32 V4.0-742 Page 15 

Woeeb08 GET_BUFFER = allocate @ buffer 1e-80p7}98e 97:83:29 — FBACKup’saedeurrens wsoe1 alt 
; 265 1736 1 SSBTTL ‘GET_BUFFER = allocate a buffer’ 

; 4 i 4 i GLOBAL ROUTINE GET_BUFFER = 

; 4 1799 tes 

; $7 i | FUNCTIONAL DESCRIPTION: 

3 § : bg : This routine allocates a buffer from the buffer pool. 

: 254 1805 1 | CALLING SEQUENCE: 

3 255 ; GET_BUFFER () 

; 1 Ob 1 | INPUT PARAMETERS: 

ein tt 

3 260 1 if 1 | IMPLICIT INPUTS: 

: 261 1812 1: NONE 

; 6¢ 1818 ii 

3 26 1814 1 | OUTPUT PARAMETERS: 

OCB 25) Bt ee 

: 66 181? 1 § IMPLICIT OUTPUTS: 

hier. 

$ 269 1820 1 | ROUTINE VALUE: 

SE Ee ee 

: 27 18 i 1 ! SIDE EFFECTS: 

: 27 1824 1: NONE 

: 27% 1825 1! 

+ 275 18 6 1 ine 

: 76 18 1 

HUBS g occu 

: 279 1830 2 BUILTIN 

: 80 1831 REMQUE; 

; Be 1838 LOCAL 

3 +4 Ht : REF BBLOCK; ! buffer control block found 
; $B 1836 ! Grab the first buffer from the free List. If it is empty, wait for 
3 a6 1338 completion of a write and take it. 

; 288 1 

; 88 1840 IF RENQUE (.FREE_LISTCOJ, BCB) 

: 291 1 43 BEGIN 

; 8 184 IF REMQUE (.OUTPUT WAITCO), BCB) 

; 239 1844 THEN BUG CHECK (BUFFERSLOST, ‘ALL freeable buffers are lost"); 
> 294 1845 WAIT (.BCB); 

: 295 46 END; 

; 99 1 : BCBEBCB_RECORD] = .BCB(BCB_BUFFER] + BBHSK_LENGTH; 

; 98 184 BCBLBCB-STATE) = BCB_S_DATA; 

: 1850 2 .BCB : 

; 300 1851 END; ! End of routine GET_BUFFER 


4 


———— > 


e 
FFER Buffer Manager 1S-se -1984 23:43:5 AX-11 Bliss-32 V4.0-742 Page 16 
7 tet GET_BUFFER allocate © butter 1 Lat PH $9:33:28 BACKUP. SRC JBUFFERS.832;1 9 a) 
.EXTRN BACKUPS_BUF FERSLOST 
0004 90009 .ENTRY GET_BUFFER, Save R2 : 1797 
52 00000000" FF OF 00002 REMQUE aFREE_LIST, BCB + 1840 
1D 1¢ 00009 BVC $ : 
52 00000000" FF OF 90008 REMQUE @OUTPUT_WAIT, BCB + 1843. 
Op 1¢ 0001 BVC ; 
000000006 8F DD 00014 PUSHL #BACKUP$_BUFFERSLOST > 1844 
000000006 00 1 FB OOOIA CALLS #1, LIBSSTOP : 
é DD 09 1$ PUSHL + 1845) 
FF75) CF Fe CALLS #1. WAIT : 
10 A2 0C A2 00000100 &F 3 0028 2$ ADDL #56 12(BCB), 16(BCB) + 184 
OA A 3 00 MOVE #3, {0(BCB) + 184 
p 900 MOVL CB, RO : 185 
0039 RET 3 


3; Routine Size: 58 bytes, Routine Base: CODE + 0111 


EO OO _—— - ——-—— — —_—— 


8 

Manager bese =1984 23:43:5 AX-11 Bliss-32 v4.0-742 P 17 
FFER@= free an 1/0 buffer akties ree ed He Shs Minato e oF 6S} 
USBTITL "FREE_BUFFER = free an 1/0 buffer’ 

GLOBAL ROUTINE FREE_BUFFER (BCB) : NOVALUE = 

+ 


FUNCTIONAL DESCRIPTION: 


mn 


This routine returns a buffer to the free List. 


CALLING SEQUENCE: 
FREE_BUFFER (BCB) 


INPUT PARAMETERS: 
BCB: address of buffer control block to be freed 


IMPLICIT INPUTS: 
NONE 


Etatattt tat 


SN NOO Oo 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


OWONAVS WN 0 ODNOAUE WN OOONOUS wiry 


' 

' 

i QUTPUT PARAMETERS: 
NONE 

' 

i SIDE EFFECTS: 

; NONE 

le 


MEUM —OODNOULSWN “OVOOVNOAUS WN —"O0OW 


ends ee he cere a can aaiamanaan —O0Oo 


= 
=S>NIPINININIPINPIMPIPYNIPINININIAINIPIRY 9d ad sd dt nt at ot at tt tt ot 2 


ek kk a a a a at a ot = = = = 2 + = 2 2 SS os ss St nn 


80 
3) 
33 
84 BEGIN 
a BUILTIN 
37 87 INSQUE ; 
38 88 
39 89 MAP 
me oy BCB : REF BBLOCK; ! BCB arg 
5g $44 : Check the buffer state for validity and hang it onto the free List. 
3a 894 2 
$i 444 If .BCBCBCB_STATE] NEQ BCB_S_DATA 
ri +44 THEN BUG_CHECK (FREEBADBUFF,” ‘Attempted to free busy (or free) buffer'); 
48 898 BCBCBCB_STATE) = BCB_S 1065 
49 899 2 INSQUE T.8CB, .FREE_CIST(1)); 
50 ane 
51 901 
52 902 END; ! End of routine FREE_BUFFER 


-EXTRN BACKUPS_F REEBADBUF F 
0004 00000 -ENTRY FREE_BUFFER, Save R2 ; 1853 


8 
FFER Buffer 18. $ep-1984 23:43:5 AX-1i Bliss-32 V4.0-742 
‘10-508 FREE _BUF FER free an 1/0 buffer ih-Sep- 3b $9:$3:29 BACKUP’ SRe BUFFERS .832; 1 
A 0 0 MOVL B 
38 BA A 6 CMPB iptha) “3 
000000006 er bb ¢ BE ShL PRACK P$_FREEBADBUF F 
000000006 00 ee 13 CALLS @ YBSSTOP 
OA as 4 19 1$: CLRB R2) 
00000000" FF 6 E i INSQUE (R2), @FREE_LIST+4 
4 2 RET 
; Routine Size: 36 bytes, Routine Base: CODE + 0148 
3; 353 1903 1 
: 354 1904 1 END 
3 335 1905 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
3 PSECT SUMMARY 
3 Name Bytes Attributes 
: oC 2124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(2) 
; CODE 367 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
; eocceeoe Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
; ~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 10 0 581 00:01.0 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:BUFFERS/OBJ=OBJ$:BUFFERS MSRC$:BUFFERS/UPDATE=(ENH$: BUFFERS) 


Size: 366 code + 212 
Run Time: Hi 
Elapsed Time: 1:08.0 


Lines/CPU Min: e444 
Lexemes/CPU-Min: 47538 
poner Used: 255 pages 
Compilation Complete 


COMMAND QUALIFIERS 


5 data bytes 


IGI 
ONFIDENTIAL AND PROPRIETARY 


z 
Oo 
| | 
_— 
x 
a 
oO 
oo 
o 
1° 
ff 
— 
z 
Lu 
= 
o 
eI 
> 
So 
Lu 
- 
co 
oS 
oz 
oo 
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